home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol117 / referenc.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-15  |  17.7 KB  |  498 lines
  1. 10  REM Documentation for the Genealogy ON DISPLAY Programs
  2. 20  REM All data is in the form of DATA statements.
  3. 30  REM By:  Melvin O. Duke.  Updated December 1984.
  4. 40  DATA Genealogy
  5. 50  DATA User's Manual
  6. 60  DATA -5
  7. 70  DATA 1
  8. 80  INDENT = 0
  9. 90  DASHES$ = "+"+STRING$(54,45)+"+"
  10. 100  TRIM.LINE$ = "(Trim-line)"
  11. 110  REM Program begins here
  12. 120  READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
  13. 130  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  14. 140  GOSUB 500  'For trim line and heading space
  15. 150  FOR I = 1 TO 6 : LPRINT : NEXT I
  16. 160  LPRINT CHR$(14);  'Set Expanded Print
  17. 170  LPRINT TAB(TAB.POS-2);TITLE$
  18. 180  LPRINT CHR$(18);  'Return to normal
  19. 190  FOR I = 1 TO 3 : LPRINT : NEXT I
  20. 200  LPRINT CHR$(27); "E"; 'Set Emphasized mode
  21. 210  LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  22. 220  LPRINT CHR$(27); "F"; 'Return to normal
  23. 222  LPRINT : LPRINT : LPRINT
  24. 224  LPRINT TAB(TAB.POS+11);"Version 3.0"
  25. 230  FOR I = 1 TO 11 : LPRINT : NEXT I
  26. 240  LPRINT TAB(TAB.POS+10); DOC.NAME$
  27. 250  LINE.NO = LINE.NO + 27
  28. 260  '
  29. 270  READ REPLY$
  30. 280  IF LEFT$(REPLY$,1) = "." THEN GOSUB 850: GOTO 270
  31. 290  IF LINE.NO > 44 THEN GOSUB 610
  32. 300  REM Print the line if not a command
  33. 303  REM First, change tildes to quotes
  34. 304  FOR Q = 1 TO LEN(REPLY$)
  35. 305   IF MID$(REPLY$,Q,1)="~"THEN MID$(REPLY$,Q,1)=CHR$(34)
  36. 306  NEXT Q
  37. 310  LPRINT TAB(TAB.POS);REPLY$
  38. 320  LINE.NO = LINE.NO + 1
  39. 330  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  40. 340  GOTO 270
  41. 350  REM Data for the Copyright Page
  42. 354  DATA ".pa"
  43. 358  DATA "Anyone may request a copy of these"
  44. 362  DATA "programs by sending a blank, double-"
  45. 366  DATA "sided, double-density diskette to the"
  46. 370  DATA "author of the programs."
  47. 378  DATA ".sp"
  48. 382  DATA "An addressed, postage-paid return"
  49. 386  DATA "mailer must accompany the diskette (no"
  50. 390  DATA "exceptions, please).
  51. 394  DATA ".sp"
  52. 398  DATA "A copy of the programs with documenta-"
  53. 402  DATA "tion will be sent by return mail."
  54. 410  DATA ".vt 2"
  55. 415  DATA "Users are encouraged to copy and share"
  56. 420  DATA "the programs with others."
  57. 430  DATA ".vt 6"
  58. 434  DATA "If you are using these programs, and"
  59. 438  DATA "finding them of value, your contribution"
  60. 442  DATA "($35 suggested) will be anticipated."
  61. 446  DATA ".sp"
  62. 450  DATA "Melvin O. Duke"
  63. 454  DATA "P. O. Box 20836"
  64. 458  DATA "San Jose, CA  95160"
  65. 462  DATA ".vt 4"
  66. 466  DATA "Copyright (c) 1983, 1984, 1985, by:"
  67. 470  DATA "Melvin O. Duke."
  68. 474  DATA ".sp"
  69. 478  DATA "All rights reserved."
  70. 482  '
  71. 500  REM Top of each page routine
  72. 510  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  73. 520  LPRINT
  74. 530  LPRINT TAB(30); TRIM.LINE$
  75. 540  LPRINT DASHES$ 'Dashes
  76. 550  FOR I = 1 TO 6
  77. 560   LPRINT
  78. 570  NEXT I
  79. 580  LINE.NO = LINE.NO + 6
  80. 590  RETURN
  81. 600  '
  82. 610  REM Bottom of each page Routine
  83. 620  IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 740
  84. 630  LPRINT TAB(TAB.POS); STRING$(40,45)  'on line 46
  85. 640  LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 3.0" 'on line 47
  86. 650  IF PAGE.NO MOD 2 = 1 THEN 690
  87. 660  LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  88. 670  LPRINT TAB(TAB.POS+27);"User's Manual"
  89. 680  GOTO 740
  90. 690  LPRINT TAB(TAB.POS); "User's Manual";
  91. 700  IF PAGE.NO < 10 THEN DELTA = 34
  92. 710  IF PAGE.NO >  9 THEN DELTA = 33
  93. 720  IF PAGE.NO > 99 THEN DELTA = 32
  94. 730  LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  'on line 48
  95. 740  LPRINT : LPRINT : LPRINT
  96. 750  LPRINT DASHES$ 'dashes after 51
  97. 760  LPRINT TAB(30); TRIM.LINE$
  98. 770  LPRINT CHR$(12);
  99. 780  PAGE.NO = PAGE.NO + 1
  100. 790  LINE.NO = 1
  101. 800  IF REPLY$ = ".eof" THEN 820  'Bypass after last page
  102. 810  GOSUB 500  'For top of next page
  103. 820  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  104. 830  RETURN
  105. 840  '
  106. 850  REM Command Processor
  107. 860  IF LEFT$(REPLY$,3) = ".h1" THEN 960
  108. 870  IF LEFT$(REPLY$,3) = ".h2" THEN 1100
  109. 880  IF LEFT$(REPLY$,3) = ".h3" THEN 1210
  110. 890  IF LEFT$(REPLY$,3) = ".sp" THEN 1320
  111. 900  IF LEFT$(REPLY$,4) = ".eof" THEN 1370
  112. 910  IF LEFT$(REPLY$,3) = ".pa" THEN 1410
  113. 915  IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
  114. 920  IF LEFT$(REPLY$,3) = ".vt" THEN 1480
  115. 930  IF LEFT$(REPLY$,3) = ".pk" THEN 1590
  116. 940  IF LEFT$(REPLY$,3) = ".in" THEN 1720
  117. 950  STOP
  118. 960  REM Head 1 Processor
  119. 970  FOR I = LINE.NO TO 44
  120. 980   LPRINT
  121. 990  NEXT I
  122. 1000  GOSUB 610  'Bottom of page Routine
  123. 1010  IF PAGE.NO MOD 2 = 0 THEN GOSUB 1410  'For h1 on Odd pages
  124. 1020  LPRINT CHR$(14);  'Set expanded print
  125. 1030  IF PAGE.NO MOD 2 = 0 THEN ADJUST = -4 ELSE ADJUST = -7
  126. 1040  LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  127. 1050  LPRINT CHR$(18);  'Return to normal
  128. 1060  LINE.NO = LINE.NO+1
  129. 1070  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  130. 1080  RETURN
  131. 1090  '
  132. 1100  REM Head 2 Processor
  133. 1110  IF LINE.NO = 7 THEN 1130 'skip spacing if at top of page
  134. 1120  IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  135. 1130  LPRINT CHR$(27); "E"; 'Set emphasized print
  136. 1140  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  137. 1150  LPRINT CHR$(27); "F"; 'Return to normal
  138. 1160  LPRINT
  139. 1170  LINE.NO = LINE.NO + 2
  140. 1180  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  141. 1190  RETURN
  142. 1200  '
  143. 1210  REM Head 3 Processor
  144. 1220  IF LINE.NO = 7 THEN 1240 'skip spacing if at top of page
  145. 1230  IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  146. 1240  LPRINT CHR$(27); "E"; 'Set emphasized print
  147. 1250  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  148. 1260  LPRINT CHR$(27); "F"; 'Return to normal
  149. 1270  LPRINT
  150. 1280  LINE.NO = LINE.NO + 2
  151. 1290  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  152. 1300  RETURN
  153. 1310  '
  154. 1320  REM Single Space Processor
  155. 1330  IF LINE.NO = 7 THEN 1350
  156. 1340  IF LINE.NO > 44 THEN GOSUB 1410 ELSE LPRINT : LINE.NO = LINE.NO + 1
  157. 1350  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  158. 1360  RETURN
  159. 1370  REM End of File Processor
  160. 1380  GOSUB 1410 'Bottom of Page
  161. 1390  LPRINT CHR$(12);
  162. 1400  GOTO 4970
  163. 1410  REM Page Eject Processor
  164. 1420  FOR I = LINE.NO TO 44
  165. 1430   LPRINT
  166. 1440   LINE.NO = LINE.NO + 1
  167. 1450  NEXT I
  168. 1460  GOSUB 610  'Bottom of Page Processing
  169. 1470  RETURN
  170. 1480  REM Vertical Tab Processor
  171. 1490  IF LINE.NO = 7 THEN 1580
  172. 1500  IF LINE.NO > 44 THEN GOSUB 610  'End of page
  173. 1510  QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  174. 1520  FOR I = 1 TO QTY
  175. 1530   LPRINT
  176. 1540   LINE.NO = LINE.NO + 1
  177. 1550   IF LINE.NO > 44 THEN I = QTY
  178. 1560  NEXT I
  179. 1570  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  180. 1580  RETURN
  181. 1590  REM Pack Processor
  182. 1600  IF LINE.NO > 44 THEN GOSUB 610
  183. 1610  IF TAB.POS = 8 THEN ADJUST = 4
  184. 1620  IF TAB.POS = 13 THEN ADJUST = 7
  185. 1630  TAB.POS = TAB.POS + ADJUST + INDENT
  186. 1640  LPRINT CHR$(15); 'Packed printing
  187. 1650  WIDTH "lpt1:", 132 'set condensed width
  188. 1660  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  189. 1670  LPRINT CHR$(18); 'Return to normal
  190. 1680  WIDTH "lpt1:", 80  'return to normal
  191. 1690  LINE.NO = LINE.NO + 1
  192. 1700  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  193. 1710  RETURN
  194. 1720  REM Indent Processor
  195. 1730  INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  196. 1740  RETURN
  197. 2000  DATA ".h1 REFERENCE MATERIAL"
  198. 2010  DATA ".pn 47"
  199. 2020  DATA ".h2 SAMPLE SCREENS AND PROMPTING MESSAGES"
  200. 2030  DATA "The following is a sample session, where"
  201. 2040  DATA "the user wishes to view his Genealogy on"
  202. 2050  DATA "the screen, through the use of the"
  203. 2060  DATA "'display' program."
  204. 2070  DATA ".vt 2"
  205. 2080  DATA "He begins in the normal manner.  He"
  206. 2090  DATA "has the DOS Diskette in place, and has"
  207. 2100  DATA "Cartridge BASIC in place if he is using"
  208. 2110  DATA "a PCjr."
  209. 2120  DATA ".sp"
  210. 2130  DATA "He turns the system on, and responds to"
  211. 2140  DATA "any messages which ask for date and time."
  212. 2150  DATA ".sp"
  213. 2160  DATA "He then requests BASIC by typing:"
  214. 2170  DATA ".sp"
  215. 2180  DATA "   basic/s:256"
  216. 2190  DATA "     and presses the return key."
  217. 2200  DATA ".sp"
  218. 2210  DATA "He replaces the DOS Diskette with the"
  219. 2220  DATA "Genealogy ON DISPLAY Program Diskette."
  220. 2230  DATA ".sp"
  221. 2240  DATA "He then starts Genealogy ON DISPLAY"
  222. 2250  DATA "by typing:"
  223. 2260  DATA ".sp"
  224. 2270  DATA "   run ~menu~"
  225. 2280  DATA "     and presses the return key."
  226. 2290  DATA ".pa"
  227. 2300  DATA "The display screen then appears as:"
  228. 2310  DATA ".sp"
  229. 2320  DATA ".vt 3"
  230. 2330  DATA ".pk             Menu of Programs in Genealogy ON DISPLAY"
  231. 2340  DATA ".pk                           Version 3.0"
  232. 2350  DATA ".vt 2"
  233. 2360  DATA ".pk               If you are using these programs, and"
  234. 2370  DATA ".pk             finding them of value, your contribution"
  235. 2380  DATA ".pk               ($35 suggested) will be anticipated."
  236. 2390  DATA ".vt 2"
  237. 2400  DATA ".pk                         Melvin O. Duke"
  238. 2410  DATA ".pk                         P. O. Box 20836"
  239. 2420  DATA ".pk                       San Jose, CA  95160"
  240. 2430  DATA ".sp"
  241. 2440  DATA ".pk               Copyright (c) 1983, 1984, 1985, by:"
  242. 2450  DATA ".pk                         Melvin O. Duke"
  243. 2460  DATA ".vt 4"
  244. 2470  DATA ".pk Have Program Diskette in place, then press any key to continue."
  245. 2480  DATA ".sp"
  246. 2490  DATA "Since the Program Diskette is already"
  247. 2500  DATA "in place, he just presses a key."
  248. 2510  DATA ".pa"
  249. 2520  DATA "A new screen appears, which shows the"
  250. 2530  DATA "available programs.  It appears as:"
  251. 2540  DATA ".sp"
  252. 2550  DATA ".in -3"
  253. 2560  DATA ".pk No   Name       Function of the Program"
  254. 2570  DATA ".sp"
  255. 2580  DATA ".pk  1   CREATPER   Creates a Persons File.   (Re-running destroys old file.)"
  256. 2590  DATA ".pk  2   CREATMAR   Creates a Marriages File.   (Re-running destroys old file.)"
  257. 2600  DATA ".pk  3   CREATORD   Creates an Ordinances File.   (Re-running destroys old file.)"
  258. 2610  DATA ".pk  4   UPDATPER   Updates Information in the Persons File."
  259. 2620  DATA ".pk  5   UPDATMAR   Updates Information in the Marriages File."
  260. 2630  DATA ".pk  6   UPDATORD   Updates Information in the Ordinances File."
  261. 2640  DATA ".pk  7   INDEXPC    Creates a Parent/Child Index.  (For 13, 16 and 18.)"
  262. 2650  DATA ".pk  8   INDEXMAR   Creates a Marriages Index.  (For 15, 16, 17 and 18.)"
  263. 2660  DATA ".pk  9   PRINTPER   Prints Information about Persons."
  264. 2670  DATA ".pk 10   PRINTMAR   Prints Information about Marriages."
  265. 2680  DATA ".pk 11   LISTPER    Prints a List of the Persons in the Persons File."
  266. 2690  DATA ".pk 12   LISTMAR    Prints a List of the Marriages in the Marriages File."
  267. 2700  DATA ".pk 13   LISTPCI    Prints a List of the Parent/Child Index."
  268. 2710  DATA ".pk 14   ALPHAPER   Prints an Alphabetical List of Persons."
  269. 2720  DATA ".pk 15   ALPHAMAR   Prints an Alphabetical List of Marriages."
  270. 2730  DATA ".pk 16   DISPLAY    Displays Genealogical Information on the Screen."
  271. 2740  DATA ".pk 17   PEDIGREE   Prints Pedigree Charts (Family Trees)."
  272. 2750  DATA ".pk 18   FAMILY     Prints Family Group Sheets."
  273. 2760  DATA ".pk 19   DESCEND    Displays (and Optionally Prints) Descendents Charts."
  274. 2770  DATA ".sp"
  275. 2780  DATA ".pk Enter a Program Number and press RETURN?"
  276. 2785  DATA ".pk  (0 to quit, 20 to restart the MENU)"
  277. 2790  DATA ".in 0"
  278. 2800  DATA ".sp"
  279. 2810  DATA "The user selects program 16, by typing"
  280. 2820  DATA ".sp"
  281. 2830  DATA "   16"
  282. 2840  DATA "     and presses the return key."
  283. 2850  DATA ".pa"
  284. 2860  DATA "The user then sees the logo of the"
  285. 2870  DATA "'display' program as:"
  286. 2880  DATA ".vt 3"
  287. 2890  DATA ".pk                    Display Program ON DISPLAY"
  288. 2900  DATA ".pk                            Version 3.0"
  289. 2910  DATA ".vt 2"
  290. 2920  DATA ".pk               If you are using these programs, and"
  291. 2930  DATA ".pk             finding them of value, your contribution"
  292. 2940  DATA ".pk               ($35 suggested) will be anticipated."
  293. 2950  DATA ".vt 2"
  294. 2960  DATA ".pk                         Melvin O. Duke"
  295. 2970  DATA ".pk                         P. O. Box 20836"
  296. 2980  DATA ".pk                       San Jose, CA  95160"
  297. 2990  DATA ".sp"
  298. 3000  DATA ".pk               Copyright (c) 1983, 1984, 1985 by:"
  299. 3010  DATA ".pk                         Melvin O. Duke"
  300. 3020  DATA ".vt 4"
  301. 3030  DATA ".pk Have Data Diskette(s) in Place, then Press any key to continue."
  302. 3040  DATA ".vt 3"
  303. 3050  DATA "The user replaces the Program Diskette"
  304. 3060  DATA "with the Data Diskette, then presses a"
  305. 3070  DATA "key."
  306. 3080  DATA ".pa"
  307. 3090  DATA "After pressing a key, the user watches"
  308. 3100  DATA "the screen as the indexes are read, and"
  309. 3110  DATA "the data files are opened.  He sees:"
  310. 3120  DATA ".sp"
  311. 3130  DATA ".pk Open the Parent/Child Index"
  312. 3140  DATA ".pk Reading Index Record #: 592"
  313. 3150  DATA ".sp"
  314. 3160  DATA ".pk Open the Marriage Index"
  315. 3170  DATA ".pk Reading Marriage Index Record #: 262"
  316. 3180  DATA ".sp"
  317. 3190  DATA ".pk Open the Persons File"
  318. 3200  DATA ".sp"
  319. 3210  DATA ".pk Open the Marriages File"
  320. 3220  DATA ".sp"
  321. 3230  DATA ".pk Open the Ordinances File"
  322. 3240  DATA ".vt 4"
  323. 3250  DATA ".pk Enter the Record-number of a Person?"
  324. 3260  DATA ".vt 2"
  325. 3270  DATA "The user responds with a number, such as"
  326. 3280  DATA "1, as:"
  327. 3290  DATA ".sp"
  328. 3300  DATA ".pk Enter the Record-number of a Person? 1"
  329. 3310  DATA ".pa"
  330. 3320  DATA "He then sees:"
  331. 3330  DATA ".vt 2"
  332. 3340  DATA ".pk Personal Information for:  Melvin Otto ABLE                    Person: 1"
  333. 3350  DATA ".sp"
  334. 3360  DATA ".pk Person:                                Person's Vital Statistics:"
  335. 3370  DATA ".pk Record-no.:   1"
  336. 3380  DATA ".pk Surname:     ABLE                      Birth-date:     05 Oct 1925"
  337. 3390  DATA ".pk Given Names: Melvin Otto               Birth-city:     Salt Lake City"
  338. 3400  DATA ".pk Sex:         M                         Birth-county:   Salt Lake"
  339. 3410  DATA ".pk                                        Birth-state:    Utah"
  340. 3420  DATA ".pk Person's Father:"
  341. 3430  DATA ".pk Record-no.:   7                        Death-date:"
  342. 3440  DATA ".pk Surname:     ABLE                      Death-city:"
  343. 3450  DATA ".pk Given-names: Otto                      Death-county:"
  344. 3460  DATA ".pk Birth-date:  31 Mar 1899               Death-state:"
  345. 3470  DATA ".sp"
  346. 3480  DATA ".pk Person's Mother:                       Burial-date:"
  347. 3490  DATA ".pk Record-no.:   8                        Burial-city:"
  348. 3500  DATA ".pk Surname:     BAKER                     Burial-county:"
  349. 3510  DATA ".pk Given-names: Beatrice                  Burial-state:"
  350. 3520  DATA ".pk Birth-date:  27 Sep 1902"
  351. 3530  DATA ".sp 2"
  352. 3540  DATA ".pk Next Action?"
  353. 3550  DATA ".pk (Possible Actions:  ps, pc, fg, o, p1...pn, m1...mn, q)"
  354. 3560  DATA ".pa
  355. 3570  DATA "The user asks for a pedigree chart, by"
  356. 3580  DATA "typing:  pc, as:"
  357. 3590  DATA ".sp"
  358. 3600  DATA ".pk Next Action? pc"
  359. 3610  DATA ".sp"
  360. 3620  DATA "The user then sees:"
  361. 3630  DATA ".vt 2"
  362. 3635  DATA ".in -3"
  363. 3640  DATA ".pk                                                     Birthdate:"
  364. 3650  DATA ".pk                      __8_(40) ABLE, John_____________________ 28 Nov 1834"
  365. 3660  DATA ".pk              __4_(30) ABLE, James Alfred_____________________ 19 Jan 1866"
  366. 3670  DATA ".pk              |      |_ 9_(47) YOUNGER, Martha Vance__________ 08 Feb 1842"
  367. 3680  DATA ".pk        __2_(7) ABLE, Otto____________________________________ 31 Mar 1899"
  368. 3690  DATA ".pk       |      |       __10_(51) FARMER, Charles_______________ 19 Jan 1833"
  369. 3700  DATA ".pk       |      |_5_(31) FARMER, Janet__________________________ 18 Feb 1876"
  370. 3710  DATA ".pk       |              |_11_(52) BIGBY, Susanna________________ 05 Nov 1834"
  371. 3720  DATA ".pk 1_(1) ABLE, Melvin Otto______________________________________ 05 Oct 1925"
  372. 3730  DATA ".pk       |              __12_(82) BAKER, William________________ 12 Apr 1803"
  373. 3740  DATA ".pk       |      __6_(32) BAKER, Jabez Thompson__________________ 26 Apr 1840"
  374. 3750  DATA ".pk       |      |      |_ 13_(83) THOMASON, Martha______________ 22 Aug 1805"
  375. 3760  DATA ".pk       |_3_(8) BAKER, Beatrice________________________________ 27 Sep 1902"
  376. 3770  DATA ".pk              |       __14_(84) SWENSON, Karl Kristian________ 11 Jul 1834"
  377. 3780  DATA ".pk              |_7_(33) SWENSON, Anna Pauline__________________ 08 Aug 1866"
  378. 3790  DATA ".pk                      |_15_(85) KRALL, Wilhelmina_____________ 23 Mar 1833"
  379. 3800  DATA ".vt 2"
  380. 3810  DATA ".pk Next Action?"
  381. 3820  DATA ".pk (Possible Actions:  ps, pc, fg, l1...ln, p1...pn, m1...mn, q)"
  382. 3825  DATA ".in 0"
  383. 3830  DATA ".pa"
  384. 3840  DATA "Instead of asking for a Pedigree Chart,"
  385. 3850  DATA "the user may have asked for a Family"
  386. 3860  DATA "Group (fg), as:"
  387. 3870  DATA ".sp"
  388. 3880  DATA ".pk Next Action? fg"
  389. 3890  DATA ".sp"
  390. 3900  DATA "The user would then have seen:"
  391. 3910  DATA ".vt 2"
  392. 3920  DATA ".pk Family Group Record                                         Marriage: 1"
  393. 3930  DATA ".sp"
  394. 3940  DATA ".pk Father: (1) ABLE, Melvin Otto                       Birthdate: 05 Oct 1925"
  395. 3950  DATA ".pk Mother: (2) LOVELY, Helen Lillian                   Birthdate: 13 Jun 1928"
  396. 3960  DATA ".sp"
  397. 3970  DATA ".pk Marriage Date: 16 Jun 1947      Location: Salt Lake City"
  398. 3980  DATA ".sp"
  399. 3990  DATA ".pk NO S Children:                        Birthdate:  Birth Location:"
  400. 4000  DATA ".sp"
  401. 4010  DATA ".pk  1 M ABLE, Melvin Kent                06 Jan 1949 Salt Lake City"
  402. 4020  DATA ".pk  2 M ABLE, Ronald Robert              24 Jun 1951 Oklahoma City"
  403. 4030  DATA ".pk  3 F ABLE, Carolyn Elizabeth          26 Apr 1955 Wichita"
  404. 4040  DATA ".pk  4 F ABLE, Linda Ann                  22 Aug 1962 Bellevue"
  405. 4050  DATA ".sp"
  406. 4060  DATA ".sp"
  407. 4070  DATA ".sp"
  408. 4080  DATA ".sp"
  409. 4090  DATA ".sp"
  410. 4100  DATA ".sp"
  411. 4110  DATA ".sp"
  412. 4120  DATA ".sp"
  413. 4130  DATA ".pk Next Action?"
  414. 4140  DATA ".pk (Possible Actions:  ps, f, m, p1...pn, c1...cn, m1...mn, q)"
  415. 4150  DATA ".pa"
  416. 4160  DATA "Instead of asking for a Pedigree Chart,"
  417. 4170  DATA "the user may have asked for Ordinances"
  418. 4180  DATA "for the person (o), as:"
  419. 4190  DATA ".sp"
  420. 4200  DATA ".pk Next Action? o"
  421. 4210  DATA ".sp"
  422. 4220  DATA "The user would have seen:"
  423. 4230  DATA ".sp"
  424. 4240  DATA ".in -3"
  425. 4250  DATA ".pk Ordinance Information for: Melvin Otto ABLE                   Person: 1"
  426. 4260  DATA ".sp"
  427. 4270  DATA ".pk     Personal Record                        Priesthood Record"
  428. 4280  DATA ".pk Christening:                           Aaronic Priesthood:     10 Oct 1937"
  429. 4290  DATA ".pk Blessing:                 01 Nov 1925    Deacon:               10 Oct 1937"
  430. 4300  DATA ".pk Sealed to Parents:        BIC            Teacher:              16 Feb 1941"
  431. 4310  DATA ".pk   Father's Id:  0                        Priest:               18 Oct 1942"
  432. 4320  DATA ".pk     Name:"
  433. 4330  DATA ".pk   Mother's Id:  0                      Melchizedek Priesthood: 18 Apr 1944"
  434. 4340  DATA ".pk     Name:                                Elder:                18 Apr 1944"
  435. 4350  DATA ".pk Baptism:                  04 Nov 1933    Seventy:"
  436. 4360  DATA ".pk Confirmation:             05 Nov 1933    High Priest:"
  437. 4370  DATA ".pk Patriarchical Blessing:   13 Jun 1939"
  438. 4380  DATA ".pk Endowment:                16 Jun 1947  Bishop:"
  439. 4390  DATA ".pk                           16 Jun 1947  Patriarch:"
  440. 4400  DATA ".pk                                        Apostle:"
  441. 4410  DATA ".sp
  442. 4420  DATA ".sp"
  443. 4430  DATA ".pk Occupation: Author"
  444. 4440  DATA ".sp"
  445. 4450  DATA ".pk Next Action?"
  446. 4460  DATA ".pk (Possible Actions:  ps, pc, fg, o, p1...pn, m1...mn, q)"
  447. 4470  DATA ".in 0"
  448. 4480  DATA ".pa"
  449. 4490  DATA "The user decides to quit, and types:"
  450. 4500  DATA ".sp"
  451. 4510  DATA "  q"
  452. 4520  DATA "    and presses the return key."
  453. 4530  DATA ".vt 2"
  454. 4540  DATA "He once again sees the menu.  Since he"
  455. 4550  DATA "has decided to quit, he types:"
  456. 4560  DATA ".sp"
  457. 4570  DATA "  0"
  458. 4580  DATA "    and presses the return key."
  459. 4590  DATA ".vt 2"
  460. 4600  DATA "At the bottom of the screen he sees:"
  461. 4610  DATA ".sp"
  462. 4620  DATA ".pk End of Program"
  463. 4630  DATA ".pk OK"
  464. 4640  DATA ".pk _"
  465. 4650  DATA ".pa"
  466. 4660  DATA ".h2 COMMANDS USED."
  467. 4670  DATA ".h3 basic/s:256"
  468. 4680  DATA ".sp"
  469. 4690  DATA "The basic command is used in order to"
  470. 4700  DATA "load the basic processor from either"
  471. 4710  DATA "the PCjr's BASIC Cartridge, from the"
  472. 4720  DATA "DOS diskette, into storage, and to"
  473. 4730  DATA "establish a buffer size for the data"
  474. 4740  DATA "files."
  475. 4750  DATA ".h3 load (or the F3 function-key)"
  476. 4760  DATA ".sp"
  477. 4770  DATA "The load command is used in order to"
  478. 4780  DATA "load the menu program from the Program"
  479. 4790  DATA "Diskette into storage, prior to saving"
  480. 4800  DATA "it on the Data Diskette."
  481. 4810  DATA ".h3 save (or the F4 function-key)"
  482. 4820  DATA ".sp"
  483. 4830  DATA "The save command is used in order to"
  484. 4840  DATA "save a copy of the 'menu' program on"
  485. 4850  DATA "the Data Diskette."
  486. 4860  DATA ".pa"
  487. 4870  DATA ".h3 run"
  488. 4880  DATA ".sp"
  489. 4890  DATA "The run command is used to cause any"
  490. 4900  DATA "of the Genealogy ON DISPLAY documen-"
  491. 4910  DATA "tation programs to begin."
  492. 4920  DATA ".sp"
  493. 4930  DATA "It is also used to cause the 'menu'"
  494. 4940  DATA "program to be run, and to cause the"
  495. 4950  DATA "menu itself to appear on the screen."
  496. 4960  DATA ".eof"
  497. 4970  END
  498.